﻿Imports System.IO


Public Class MH_RestoreDatabase

    Private Sub btnBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrowse.Click
        Dim dialog As New OpenFileDialog()
        dialog.Filter = "Tệp backup *.bak|*.bak"
        If (dialog.ShowDialog() = DialogResult.OK) Then
            txtDuongDan.Text = dialog.FileName
        End If
    End Sub



    Private Sub btnChapNhan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnChapNhan.Click
        Try
            Dim duongdan_nguon As String = ""
            Dim duongdan_dich As String = Application.StartupPath + "\0865059_0865125_QuanLiHocSinh.mdb"

            duongdan_nguon = txtDuongDan.Text

            'Kiểm tra người dùng có chọn đường dẫn hay chưa
            If (duongdan_nguon = "") Then
                MessageBox.Show("Chưa chọn đường dẫn, chưa thể tiến hành restore")
            Else
                'Ý tưởng: copy file *.bak vào thư mục chứa *.exe, đổi tên file *.bak thành 0865059_0865125_QuanLiHocSinh.mdb

                Dim file As FileInfo = New FileInfo(duongdan_nguon)
                'Kiểm tra file có tồn tại hay ko (trường hợp dùng đường dẫn mặc định)
                If file.Exists() Then
                    file.CopyTo(duongdan_dich, True) 'Tham số true là cho phép ghi đè
                    'Xử lí thanh progress
                    XuLyProgressBar()
                    MessageBox.Show("Restore thành công !!!")
                    ProgressBarX1.Value = 0
                Else
                    MessageBox.Show("Không tồn tại tệp backup.")
                End If
            End If

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

    Private Sub btnThoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnThoat.Click
        Me.Close()
    End Sub

    Private Sub XuLyProgressBar()
        ProgressBarX1.Value = 0

        While ProgressBarX1.Value < 100
            ProgressBarX1.Increment(1)
            System.Threading.Thread.Sleep(30)
        End While
    End Sub
End Class